home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / setup_ut / ssetup24 / generic.tx_ / GENERIC.TXT
Text File  |  1995-01-25  |  745b  |  29 lines
  1.  
  2. Function ExtractParameters (szCommandLine$) As Integer
  3. ' With Setup Studio 2.4, there is a single
  4. ' command line argument: The original path.
  5. ' So, we must give the temp. dest dir.
  6. If (szCommandLine$ = "") Then
  7. ExtractParameters = 0
  8. Exit Function
  9. End If
  10.  
  11. 'The diskette path
  12. szOriginalPath$ = szCommandLine$
  13.  
  14. 'And the system temp path (WINDOWS\~SSETUP)
  15. szBuffer$ = String$(256, 0)
  16. a% = GetWindowsDirectory(szBuffer$, 255)
  17. iZero% = InStr(szBuffer$, Chr$(0))
  18. szTemp$ = Left$(szBuffer$, iZero% - 1)
  19. szBuffer$ = szTemp$
  20. If (Len(szBuffer$)) > 3 Then
  21.  szBuffer$ = szBuffer$ + "\"
  22. End If
  23. szWinDir$ = szBuffer$
  24. szTempSetupPath$ = szBuffer$
  25. szTempSetupPath$ = szTempSetupPath$ + "~SSETUP\"
  26. ExtractParameters = 1
  27. End Function
  28.  
  29.